home *** CD-ROM | disk | FTP | other *** search
/ Knudde EK Editie / CD1.iso / schema.dxr / Script_19_-- data doorvoeren v-d finales.ls < prev    next >
Encoding:
Text File  |  2000-02-24  |  2.8 KB  |  90 lines
  1. property spriteNum
  2.  
  3. on mouseUp
  4.   cursor(4)
  5.   if sprite(spriteNum).memberNum = 81 then
  6.     SetFinalData()
  7.   else
  8.     if sprite(spriteNum).memberNum = 82 then
  9.       DeleteFinalData()
  10.     end if
  11.   end if
  12.   cursor(-1)
  13. end
  14.  
  15. on SetFinalData
  16.   global FinalsPlayList, FinalsTeam
  17.   who = spriteNum - 48
  18.   ThuisPlay = member(27 + (who * 4)).name
  19.   UitPlay = member(27 + (who * 4) + 2).name
  20.   ThuisScore = member(28 + (who * 4)).name
  21.   UitScore = member(28 + (who * 4) + 2).name
  22.   if (field(ThuisPlay) <> EMPTY) and (field(UitPlay) <> EMPTY) then
  23.     if (integer(field(ThuisScore)) <> VOID) and (integer(field(UitScore)) <> VOID) then
  24.       if integer(field(ThuisScore)) <> integer(field(UitScore)) then
  25.         setAt(FinalsPlayList, who + 1, [field(ThuisScore), field(UitScore)])
  26.         if integer(field(ThuisScore)) > integer(field(UitScore)) then
  27.           Won = ThuisPlay
  28.         else
  29.           Won = UitPlay
  30.         end if
  31.         setAt(FinalsPlayList, who + 1, [field(ThuisScore), field(UitScore)])
  32.         case who of
  33.           0:
  34.             setAt(FinalsTeam, 5, [getAt(getAt(FinalsTeam, 5), 1), field(Won)])
  35.           1:
  36.             setAt(FinalsTeam, 6, [field(Won), getAt(getAt(FinalsTeam, 6), 2)])
  37.           2:
  38.             setAt(FinalsTeam, 6, [getAt(getAt(FinalsTeam, 6), 1), field(Won)])
  39.           3:
  40.             setAt(FinalsTeam, 5, [field(Won), getAt(getAt(FinalsTeam, 5), 2)])
  41.           4:
  42.             setAt(FinalsTeam, 7, [field(Won), getAt(getAt(FinalsTeam, 7), 2)])
  43.           5:
  44.             setAt(FinalsTeam, 7, [getAt(getAt(FinalsTeam, 7), 1), field(Won)])
  45.           6:
  46.         end case
  47.         sprite(spriteNum).memberNum = 82
  48.         member(ThuisScore).editable = 0
  49.         member(UitScore).editable = 0
  50.       else
  51.         alert("Ze mogen niet gelijk spelen")
  52.       end if
  53.     else
  54.       alert("Voer wel een uitslag in A.U.B.")
  55.     end if
  56.   else
  57.     alert("Nog geen Finale")
  58.   end if
  59. end
  60.  
  61. on DeleteFinalData
  62.   global FinalsPlayList, FinalsTeam
  63.   who = spriteNum - 48
  64.   ThuisPlay = member(27 + (who * 4)).name
  65.   UitPlay = member(27 + (who * 4) + 2).name
  66.   ThuisScore = member(28 + (who * 4)).name
  67.   UitScore = member(28 + (who * 4) + 2).name
  68.   put EMPTY into field ThuisScore
  69.   put EMPTY into field UitScore
  70.   setAt(FinalsPlayList, who + 1, [EMPTY, EMPTY])
  71.   case who of
  72.     0:
  73.       setAt(FinalsTeam, 5, [getAt(getAt(FinalsTeam, 5), 1), EMPTY])
  74.     1:
  75.       setAt(FinalsTeam, 6, [EMPTY, getAt(getAt(FinalsTeam, 6), 2)])
  76.     2:
  77.       setAt(FinalsTeam, 6, [getAt(getAt(FinalsTeam, 6), 1), EMPTY])
  78.     3:
  79.       setAt(FinalsTeam, 5, [EMPTY, getAt(getAt(FinalsTeam, 5), 2)])
  80.     4:
  81.       setAt(FinalsTeam, 7, [EMPTY, getAt(getAt(FinalsTeam, 7), 2)])
  82.     5:
  83.       setAt(FinalsTeam, 7, [getAt(getAt(FinalsTeam, 7), 1), EMPTY])
  84.     6:
  85.   end case
  86.   member(ThuisScore).editable = 1
  87.   member(UitScore).editable = 1
  88.   sprite(spriteNum).memberNum = 81
  89. end
  90.